object frmADToolMain: TfrmADToolMain
  Left = 570
  Top = 150
  BorderStyle = bsDialog
  Caption = 'AD Tool'
  ClientHeight = 482
  ClientWidth = 419
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  Position = poScreenCenter
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 12
  object pcAD: TPageControl
    Left = 0
    Top = 0
    Width = 419
    Height = 411
    ActivePage = TabSheet5
    Align = alClient
    TabOrder = 0
    object TabSheet1: TTabSheet
      Caption = #20027#33756#21333#24191#21578#22270#29255
      object Label1: TLabel
        Left = 16
        Top = 360
        Width = 60
        Height = 12
        Caption = #36718#25442#38388#38548#65306
      end
      object Label2: TLabel
        Left = 181
        Top = 360
        Width = 12
        Height = 12
        Caption = #31186
      end
      object DBGridEh1: TDBGridEh
        Left = 8
        Top = 16
        Width = 393
        Height = 329
        DataSource = DSMenu
        Flat = False
        FooterColor = clWindow
        FooterFont.Charset = GB2312_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -12
        FooterFont.Name = #23435#20307
        FooterFont.Style = []
        PopupMenu = pmMenu
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            EditButtons = <>
            FieldName = 'ad_url'
            Footers = <>
            Title.Caption = 'Url'
            Width = 150
          end
          item
            ButtonStyle = cbsEllipsis
            EditButtons = <>
            FieldName = 'ad_res'
            Footers = <>
            Title.Caption = #22270#29255#25991#20214
            Width = 120
            OnEditButtonClick = DBGridEh1Columns1EditButtonClick
          end
          item
            EditButtons = <>
            FieldName = 'ad_memo'
            Footers = <>
            Title.Caption = #22791#27880
            Width = 50
          end>
      end
      object edtMenuImageInterval: TEdit
        Left = 77
        Top = 356
        Width = 81
        Height = 20
        TabOrder = 1
        Text = '0'
      end
      object udMenu: TUpDown
        Left = 158
        Top = 356
        Width = 16
        Height = 20
        Associate = edtMenuImageInterval
        TabOrder = 2
      end
    end
    object TabSheet2: TTabSheet
      Caption = #25628#32034#26639
      ImageIndex = 1
      object DBGridEh2: TDBGridEh
        Left = 8
        Top = 16
        Width = 393
        Height = 329
        DataSource = DSSearch
        Flat = False
        FooterColor = clWindow
        FooterFont.Charset = GB2312_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -12
        FooterFont.Name = #23435#20307
        FooterFont.Style = []
        PopupMenu = pmSearch
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            EditButtons = <>
            FieldName = 'ad_name'
            Footers = <>
            Title.Caption = #21517#31216
            Width = 120
          end
          item
            EditButtons = <>
            FieldName = 'ad_url'
            Footers = <>
            Title.Caption = 'Url'
            Width = 150
          end
          item
            EditButtons = <>
            FieldName = 'ad_memo'
            Footers = <>
            Title.Caption = #22791#27880
            Width = 50
          end>
      end
    end
    object TabSheet3: TTabSheet
      Caption = #25512#33616#27036
      ImageIndex = 2
      object DBGridEh3: TDBGridEh
        Left = 8
        Top = 16
        Width = 393
        Height = 329
        DataSource = DSCommet
        Flat = False
        FooterColor = clWindow
        FooterFont.Charset = GB2312_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -12
        FooterFont.Name = #23435#20307
        FooterFont.Style = []
        PopupMenu = pmCommet
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            EditButtons = <>
            FieldName = 'ad_name'
            Footers = <>
            Title.Caption = #21517#31216
            Width = 120
          end
          item
            EditButtons = <>
            FieldName = 'ad_url'
            Footers = <>
            Title.Caption = 'Url'
            Width = 150
          end
          item
            EditButtons = <>
            FieldName = 'ad_memo'
            Footers = <>
            Title.Caption = #22791#27880
            Width = 50
          end>
      end
    end
    object TabSheet4: TTabSheet
      Caption = #26356#26032#24191#21578#22270#29255
      ImageIndex = 3
      object Label3: TLabel
        Left = 16
        Top = 360
        Width = 60
        Height = 12
        Caption = #36718#25442#38388#38548#65306
      end
      object Label4: TLabel
        Left = 181
        Top = 360
        Width = 12
        Height = 12
        Caption = #31186
      end
      object DBGridEh4: TDBGridEh
        Left = 8
        Top = 16
        Width = 393
        Height = 329
        DataSource = DSSync
        Flat = False
        FooterColor = clWindow
        FooterFont.Charset = GB2312_CHARSET
        FooterFont.Color = clWindowText
        FooterFont.Height = -12
        FooterFont.Name = #23435#20307
        FooterFont.Style = []
        PopupMenu = pmSync
        TabOrder = 0
        TitleFont.Charset = GB2312_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -12
        TitleFont.Name = #23435#20307
        TitleFont.Style = []
        Columns = <
          item
            EditButtons = <>
            FieldName = 'ad_url'
            Footers = <>
            Title.Caption = 'Url'
            Width = 150
          end
          item
            ButtonStyle = cbsEllipsis
            EditButtons = <>
            FieldName = 'ad_res'
            Footers = <>
            Title.Caption = #22270#29255#25991#20214
            Width = 120
            OnEditButtonClick = DBGridEh4Columns1EditButtonClick
          end
          item
            EditButtons = <>
            FieldName = 'ad_memo'
            Footers = <>
            Title.Caption = #22791#27880
            Width = 50
          end>
      end
      object edtSyncImageInterval: TEdit
        Left = 77
        Top = 356
        Width = 81
        Height = 20
        TabOrder = 1
        Text = '0'
      end
      object udSync: TUpDown
        Left = 158
        Top = 356
        Width = 16
        Height = 20
        Associate = edtSyncImageInterval
        TabOrder = 2
      end
    end
    object TabSheet5: TTabSheet
      Caption = #31995#32479#37096#20998
      ImageIndex = 4
      object lblHomepage: TLabel
        Left = 8
        Top = 40
        Width = 36
        Height = 12
        Caption = #20027#39029#65306
      end
      object lblDesktop: TLabel
        Left = 8
        Top = 100
        Width = 60
        Height = 12
        Caption = #26700#38754#22721#32440#65306
      end
      object btnDesktop: TSpeedButton
        Left = 264
        Top = 91
        Width = 23
        Height = 22
        OnClick = btnDesktopClick
      end
      object edtHomepage: TEdit
        Left = 69
        Top = 36
        Width = 321
        Height = 20
        TabOrder = 0
      end
      object edtWallpaper: TEdit
        Left = 69
        Top = 92
        Width = 193
        Height = 20
        TabOrder = 1
      end
      object chkHomepageEnable: TCheckBox
        Left = 16
        Top = 8
        Width = 97
        Height = 17
        Caption = #21551#29992
        TabOrder = 2
        OnClick = chkHomepageEnableClick
      end
      object chkDesktopEnable: TCheckBox
        Left = 16
        Top = 68
        Width = 97
        Height = 17
        Caption = #21551#29992
        TabOrder = 3
        OnClick = chkDesktopEnableClick
      end
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 411
    Width = 419
    Height = 71
    Align = alBottom
    BevelOuter = bvNone
    TabOrder = 1
    object Label5: TLabel
      Left = 16
      Top = 8
      Width = 78
      Height = 12
      Caption = #25628#32034#24341#25806'Url'#65306
    end
    object BitBtn1: TBitBtn
      Left = 320
      Top = 24
      Width = 75
      Height = 25
      Caption = #20445#23384
      TabOrder = 0
      OnClick = BitBtn1Click
    end
    object edtSearchEngineUrl: TEdit
      Left = 8
      Top = 32
      Width = 297
      Height = 20
      TabOrder = 1
    end
  end
  object Database: TADOConnection
    ConnectionString = 
      'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\program\BarSyste' +
      'm\Bin\Data\BarData.mdb;Persist Security Info=False'
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 28
    Top = 64
  end
  object QueryMenu: TADOQuery
    Connection = Database
    CursorType = ctStatic
    LockType = ltBatchOptimistic
    BeforePost = QueryMenuBeforePost
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM ad WHERE ad_type=0')
    Left = 32
    Top = 104
    object QueryMenuad_id: TIntegerField
      FieldName = 'ad_id'
    end
    object QueryMenuad_type: TIntegerField
      FieldName = 'ad_type'
    end
    object QueryMenuad_url: TWideStringField
      FieldName = 'ad_url'
      OnGetText = QueryMenuad_urlGetText
      OnSetText = QueryMenuad_urlSetText
      Size = 255
    end
    object QueryMenuad_res: TBlobField
      FieldName = 'ad_res'
    end
    object QueryMenuad_memo: TWideStringField
      FieldName = 'ad_memo'
      Size = 50
    end
    object QueryMenuad_clicks: TIntegerField
      FieldName = 'ad_clicks'
    end
    object QueryMenuad_name: TWideStringField
      FieldName = 'ad_name'
      OnGetText = QueryMenuad_urlGetText
      OnSetText = QueryMenuad_urlSetText
      Size = 255
    end
    object QueryMenuad_version: TWideStringField
      FieldName = 'ad_version'
      Size = 50
    end
  end
  object QuerySync: TADOQuery
    Tag = 3
    Connection = Database
    LockType = ltBatchOptimistic
    BeforePost = QueryMenuBeforePost
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM ad WHERE ad_type=3')
    Left = 28
    Top = 232
    object QuerySyncad_id: TAutoIncField
      FieldName = 'ad_id'
      ReadOnly = True
    end
    object QuerySyncad_type: TIntegerField
      FieldName = 'ad_type'
    end
    object QuerySyncad_url: TWideStringField
      FieldName = 'ad_url'
      OnGetText = QueryMenuad_urlGetText
      OnSetText = QueryMenuad_urlSetText
      Size = 255
    end
    object QuerySyncad_res: TBlobField
      FieldName = 'ad_res'
    end
    object QuerySyncad_memo: TWideStringField
      FieldName = 'ad_memo'
      Size = 50
    end
    object QuerySyncad_clicks: TIntegerField
      FieldName = 'ad_clicks'
    end
    object QuerySyncad_name: TWideStringField
      FieldName = 'ad_name'
      OnGetText = QueryMenuad_urlGetText
      OnSetText = QueryMenuad_urlSetText
      Size = 255
    end
    object QuerySyncad_version: TWideStringField
      FieldName = 'ad_version'
      Size = 50
    end
  end
  object QuerySearch: TADOQuery
    Tag = 1
    Connection = Database
    LockType = ltBatchOptimistic
    BeforePost = QueryMenuBeforePost
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM ad WHERE ad_type=1')
    Left = 28
    Top = 144
    object QuerySearchad_id: TAutoIncField
      FieldName = 'ad_id'
      ReadOnly = True
    end
    object QuerySearchad_type: TIntegerField
      FieldName = 'ad_type'
    end
    object QuerySearchad_url: TWideStringField
      FieldName = 'ad_url'
      OnGetText = QueryMenuad_urlGetText
      OnSetText = QueryMenuad_urlSetText
      Size = 255
    end
    object QuerySearchad_res: TBlobField
      FieldName = 'ad_res'
    end
    object QuerySearchad_memo: TWideStringField
      FieldName = 'ad_memo'
      Size = 50
    end
    object QuerySearchad_clicks: TIntegerField
      FieldName = 'ad_clicks'
    end
    object QuerySearchad_name: TWideStringField
      FieldName = 'ad_name'
      OnGetText = QueryMenuad_urlGetText
      OnSetText = QueryMenuad_urlSetText
      Size = 255
    end
    object QuerySearchad_version: TWideStringField
      FieldName = 'ad_version'
      Size = 50
    end
  end
  object QueryCommet: TADOQuery
    Tag = 2
    Connection = Database
    LockType = ltBatchOptimistic
    BeforePost = QueryMenuBeforePost
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM ad WHERE ad_type=2')
    Left = 28
    Top = 192
    object QueryCommetad_id: TAutoIncField
      FieldName = 'ad_id'
      ReadOnly = True
    end
    object QueryCommetad_type: TIntegerField
      FieldName = 'ad_type'
    end
    object QueryCommetad_url: TWideStringField
      FieldName = 'ad_url'
      OnGetText = QueryMenuad_urlGetText
      OnSetText = QueryMenuad_urlSetText
      Size = 255
    end
    object QueryCommetad_res: TBlobField
      FieldName = 'ad_res'
    end
    object QueryCommetad_memo: TWideStringField
      FieldName = 'ad_memo'
      Size = 50
    end
    object QueryCommetad_clicks: TIntegerField
      FieldName = 'ad_clicks'
    end
    object QueryCommetad_name: TWideStringField
      FieldName = 'ad_name'
      OnGetText = QueryMenuad_urlGetText
      OnSetText = QueryMenuad_urlSetText
      Size = 255
    end
    object QueryCommetad_version: TWideStringField
      FieldName = 'ad_version'
      Size = 50
    end
  end
  object DSMenu: TDataSource
    DataSet = QueryMenu
    Left = 60
    Top = 103
  end
  object DSSearch: TDataSource
    DataSet = QuerySearch
    Left = 60
    Top = 143
  end
  object DSSync: TDataSource
    DataSet = QuerySync
    Left = 60
    Top = 231
  end
  object DSCommet: TDataSource
    DataSet = QueryCommet
    Left = 60
    Top = 191
  end
  object pmMenu: TPopupMenu
    Left = 156
    Top = 87
    object N1: TMenuItem
      Caption = #28155#21152
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #21024#38500
      OnClick = N2Click
    end
  end
  object pmSearch: TPopupMenu
    Left = 156
    Top = 111
    object MenuItem1: TMenuItem
      Caption = #28155#21152
      OnClick = MenuItem1Click
    end
    object MenuItem2: TMenuItem
      Caption = #21024#38500
      OnClick = MenuItem2Click
    end
  end
  object pmCommet: TPopupMenu
    Left = 156
    Top = 151
    object MenuItem3: TMenuItem
      Caption = #28155#21152
      OnClick = MenuItem3Click
    end
    object MenuItem4: TMenuItem
      Caption = #21024#38500
      OnClick = MenuItem4Click
    end
  end
  object pmSync: TPopupMenu
    Left = 156
    Top = 175
    object MenuItem5: TMenuItem
      Caption = #28155#21152
      OnClick = MenuItem5Click
    end
    object MenuItem6: TMenuItem
      Caption = #21024#38500
      OnClick = MenuItem6Click
    end
  end
  object QueryHomepage: TADOQuery
    Tag = 3
    Connection = Database
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM ad WHERE ad_type=4')
    Left = 28
    Top = 272
    object QueryHomepagead_id: TAutoIncField
      FieldName = 'ad_id'
      ReadOnly = True
    end
    object QueryHomepagead_type: TIntegerField
      FieldName = 'ad_type'
    end
    object QueryHomepagead_url: TWideStringField
      FieldName = 'ad_url'
      OnGetText = QueryMenuad_urlGetText
      OnSetText = QueryMenuad_urlSetText
      Size = 255
    end
    object QueryHomepagead_res: TBlobField
      FieldName = 'ad_res'
    end
    object QueryHomepagead_memo: TWideStringField
      FieldName = 'ad_memo'
      Size = 50
    end
    object QueryHomepagead_clicks: TIntegerField
      FieldName = 'ad_clicks'
    end
    object QueryHomepagead_name: TWideStringField
      FieldName = 'ad_name'
      OnGetText = QueryMenuad_urlGetText
      OnSetText = QueryMenuad_urlSetText
      Size = 255
    end
    object QueryHomepagead_version: TWideStringField
      FieldName = 'ad_version'
      Size = 50
    end
  end
  object DSHomepage: TDataSource
    DataSet = QueryHomepage
    Left = 60
    Top = 271
  end
  object QueryWallpaper: TADOQuery
    Tag = 3
    Connection = Database
    LockType = ltBatchOptimistic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM ad WHERE ad_type=5')
    Left = 28
    Top = 304
    object QueryWallpaperad_id: TAutoIncField
      FieldName = 'ad_id'
      ReadOnly = True
    end
    object QueryWallpaperad_type: TIntegerField
      FieldName = 'ad_type'
    end
    object QueryWallpaperad_url: TWideStringField
      FieldName = 'ad_url'
      Size = 255
    end
    object QueryWallpaperad_res: TBlobField
      FieldName = 'ad_res'
    end
    object QueryWallpaperad_memo: TWideStringField
      FieldName = 'ad_memo'
      Size = 50
    end
    object QueryWallpaperad_clicks: TIntegerField
      FieldName = 'ad_clicks'
    end
    object QueryWallpaperad_name: TWideStringField
      FieldName = 'ad_name'
      OnGetText = QueryMenuad_urlGetText
      OnSetText = QueryMenuad_urlSetText
      Size = 255
    end
    object QueryWallpaperad_version: TWideStringField
      FieldName = 'ad_version'
      Size = 50
    end
  end
  object DSWallpaper: TDataSource
    DataSet = QueryWallpaper
    Left = 60
    Top = 303
  end
end
